---
title: "{{< iconify ph palette-fill >}} Digital Content Creation"
format: html
---
```{r}
#| include: false
library (dashboardr)
```
**THIS IS A MOCKUP VERSION PLEASE DO NOT CITE**
**Digital Content Creation** skills cover the ability to create and modify digital content: making presentations, combining different media, editing images/music/video, and understanding copyright rules around digital content.
```{r, echo=FALSE}
dashboardr::enable_modals()
```
```{r setup}
#| echo: false
#| warning: false
#| message: false
#| error: false
#| results: 'hide'
# Load required libraries
library(dashboardr)
library(dplyr)
library(highcharter)
# Global chunk options
knitr::opts_chunk$set(
echo = FALSE,
warning = FALSE,
message = FALSE,
error = FALSE,
fig.width = 12,
fig.height = 8,
dpi = 300
)
# Load data from dataset_4014obs.rds
data <- readRDS('dataset_4014obs.rds')
# Data summary
cat('Dataset loaded:', nrow(data), 'rows,', ncol(data), 'columns\n')
# Create filtered datasets
# Each filter is applied once and reused across visualizations
data_filtered_984a0efe <- data %>% dplyr::filter(wave == 1)
data_filtered_4af682fd <- data %>% dplyr::filter(wave == 2)
```
```{r, echo=FALSE, results='asis'}
cat(as.character(dashboardr::modal_content(
modal_id = 'PDCCS1R',
text = '<h2>Digital Content Creation: Performance Questions</h2>
<img src="https://placehold.co/600x400/EEE/31343C" style="max-width:100%; height:auto;">
<p>Information literacy scores were highest at 85%.
Participants excelled at search strategies and
source evaluation.</p>'
)))
```
## {{< iconify ph lightning-fill >}} Digital Content Creation Skills
ADD TEXT BEFORE TABSET
::: {.panel-tabset}
### {{< iconify ph number-circle-one-fill >}} Wave 1
::: {.panel-tabset}
##### {{< iconify ph users-fill >}} Overall
```{r dccs-wave1-overall-2}
# Digital Content Creation Skills
result <- create_stackedbars(
data = data_filtered_984a0efe %>% tidyr::drop_na(SCrea2, SCrea3, SCrea4, SCrea5),
title = "Digital Content Creation Skills",
questions = c("SCrea2", "SCrea3", "SCrea4", "SCrea5"),
question_labels = c("I can make a presentation on the computer (for example in Powerpoint)", "I can make something that combines different digital media (for example a movie with music).", "I can change existing digital images, music, and video.", "I can make a photo or video more attractive (for example with a filter or Photoshop)."),
stacked_type = "percent",
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
horizontal = TRUE,
x_label = "",
stack_breaks = c(0.5, 2.5, 3.5, 5.5),
stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
stack_label = NULL,
weight_var = "weging_GAMO"
)
result
```
##### {{< iconify mdi:human-male-male-child >}} Age
::: {.panel-tabset}
###### {{< iconify ph chat-circle-fill >}} Question 1
```{r dccs-wave1-age-item1-2}
# I can make a presentation on the computer (for example in Powerpoint)
result <- create_stackedbar(
data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SCrea2),
title = "I can make a presentation on the computer (for example in Powerpoint)",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0.5, 2.5, 3.5, 5.5),
stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "AgeGroup",
stack_var = "SCrea2"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 2
```{r dccs-wave1-age-item2-2}
# I can make something that combines different digital media (for example a movie with music).
result <- create_stackedbar(
data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SCrea3),
title = "I can make something that combines different digital media (for example a movie with music).",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0.5, 2.5, 3.5, 5.5),
stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "AgeGroup",
stack_var = "SCrea3"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 3
```{r dccs-wave1-age-item3-2}
# I can change existing digital images, music, and video.
result <- create_stackedbar(
data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SCrea4),
title = "I can change existing digital images, music, and video.",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0.5, 2.5, 3.5, 5.5),
stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "AgeGroup",
stack_var = "SCrea4"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 4
```{r dccs-wave1-age-item4-2}
# I can make a photo or video more attractive (for example with a filter or Photoshop).
result <- create_stackedbar(
data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SCrea5),
title = "I can make a photo or video more attractive (for example with a filter or Photoshop).",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0.5, 2.5, 3.5, 5.5),
stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "AgeGroup",
stack_var = "SCrea5"
)
result
```
:::
##### {{< iconify mdi gender-transgender >}} Gender
::: {.panel-tabset}
###### {{< iconify ph chat-circle-fill >}} Question 1
```{r dccs-wave1-gender-item1-2}
# I can make a presentation on the computer (for example in Powerpoint)
result <- create_stackedbar(
data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SCrea2),
title = "I can make a presentation on the computer (for example in Powerpoint)",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0.5, 2.5, 3.5, 5.5),
stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "geslacht",
stack_var = "SCrea2"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 2
```{r dccs-wave1-gender-item2-2}
# I can make something that combines different digital media (for example a movie with music).
result <- create_stackedbar(
data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SCrea3),
title = "I can make something that combines different digital media (for example a movie with music).",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0.5, 2.5, 3.5, 5.5),
stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "geslacht",
stack_var = "SCrea3"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 3
```{r dccs-wave1-gender-item3-2}
# I can change existing digital images, music, and video.
result <- create_stackedbar(
data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SCrea4),
title = "I can change existing digital images, music, and video.",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0.5, 2.5, 3.5, 5.5),
stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "geslacht",
stack_var = "SCrea4"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 4
```{r dccs-wave1-gender-item4-2}
# I can make a photo or video more attractive (for example with a filter or Photoshop).
result <- create_stackedbar(
data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SCrea5),
title = "I can make a photo or video more attractive (for example with a filter or Photoshop).",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0.5, 2.5, 3.5, 5.5),
stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "geslacht",
stack_var = "SCrea5"
)
result
```
:::
##### {{< iconify ph graduation-cap-fill >}} Education
::: {.panel-tabset}
###### {{< iconify ph chat-circle-fill >}} Question 1
```{r dccs-wave1-edu-item1-2}
# I can make a presentation on the computer (for example in Powerpoint)
result <- create_stackedbar(
data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SCrea2),
title = "I can make a presentation on the computer (for example in Powerpoint)",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0.5, 2.5, 3.5, 5.5),
stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "Education",
stack_var = "SCrea2"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 2
```{r dccs-wave1-edu-item2-2}
# I can make something that combines different digital media (for example a movie with music).
result <- create_stackedbar(
data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SCrea3),
title = "I can make something that combines different digital media (for example a movie with music).",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0.5, 2.5, 3.5, 5.5),
stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "Education",
stack_var = "SCrea3"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 3
```{r dccs-wave1-edu-item3-2}
# I can change existing digital images, music, and video.
result <- create_stackedbar(
data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SCrea4),
title = "I can change existing digital images, music, and video.",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0.5, 2.5, 3.5, 5.5),
stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "Education",
stack_var = "SCrea4"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 4
```{r dccs-wave1-edu-item4-2}
# I can make a photo or video more attractive (for example with a filter or Photoshop).
result <- create_stackedbar(
data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SCrea5),
title = "I can make a photo or video more attractive (for example with a filter or Photoshop).",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0.5, 2.5, 3.5, 5.5),
stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "Education",
stack_var = "SCrea5"
)
result
```
:::
:::
### {{< iconify ph number-circle-two-fill >}} Wave 2
::: {.panel-tabset}
##### {{< iconify ph users-fill >}} Overall
```{r dccs-wave2-overall-2}
# Digital Content Creation Skills
result <- create_stackedbars(
data = data_filtered_4af682fd %>% tidyr::drop_na(SCrea2, SCrea3, SCrea4, SCrea5),
title = "Digital Content Creation Skills",
questions = c("SCrea2", "SCrea3", "SCrea4", "SCrea5"),
question_labels = c("I can make a presentation on the computer (for example in Powerpoint)", "I can make something that combines different digital media (for example a movie with music).", "I can change existing digital images, music, and video.", "I can make a photo or video more attractive (for example with a filter or Photoshop)."),
stacked_type = "percent",
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
horizontal = TRUE,
x_label = "",
stack_breaks = c(0.5, 2.5, 3.5, 5.5),
stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
stack_label = NULL,
weight_var = "weging_GAMO"
)
result
```
##### {{< iconify mdi:human-male-male-child >}} Age
::: {.panel-tabset}
###### {{< iconify ph chat-circle-fill >}} Question 1
```{r dccs-wave2-age-item1-2}
# I can make a presentation on the computer (for example in Powerpoint)
result <- create_stackedbar(
data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SCrea2),
title = "I can make a presentation on the computer (for example in Powerpoint)",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0.5, 2.5, 3.5, 5.5),
stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "AgeGroup",
stack_var = "SCrea2"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 2
```{r dccs-wave2-age-item2-2}
# I can make something that combines different digital media (for example a movie with music).
result <- create_stackedbar(
data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SCrea3),
title = "I can make something that combines different digital media (for example a movie with music).",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0.5, 2.5, 3.5, 5.5),
stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "AgeGroup",
stack_var = "SCrea3"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 3
```{r dccs-wave2-age-item3-2}
# I can change existing digital images, music, and video.
result <- create_stackedbar(
data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SCrea4),
title = "I can change existing digital images, music, and video.",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0.5, 2.5, 3.5, 5.5),
stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "AgeGroup",
stack_var = "SCrea4"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 4
```{r dccs-wave2-age-item4-2}
# I can make a photo or video more attractive (for example with a filter or Photoshop).
result <- create_stackedbar(
data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SCrea5),
title = "I can make a photo or video more attractive (for example with a filter or Photoshop).",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0.5, 2.5, 3.5, 5.5),
stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "AgeGroup",
stack_var = "SCrea5"
)
result
```
:::
##### {{< iconify mdi gender-transgender >}} Gender
::: {.panel-tabset}
###### {{< iconify ph chat-circle-fill >}} Question 1
```{r dccs-wave2-gender-item1-2}
# I can make a presentation on the computer (for example in Powerpoint)
result <- create_stackedbar(
data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SCrea2),
title = "I can make a presentation on the computer (for example in Powerpoint)",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0.5, 2.5, 3.5, 5.5),
stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "geslacht",
stack_var = "SCrea2"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 2
```{r dccs-wave2-gender-item2-2}
# I can make something that combines different digital media (for example a movie with music).
result <- create_stackedbar(
data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SCrea3),
title = "I can make something that combines different digital media (for example a movie with music).",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0.5, 2.5, 3.5, 5.5),
stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "geslacht",
stack_var = "SCrea3"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 3
```{r dccs-wave2-gender-item3-2}
# I can change existing digital images, music, and video.
result <- create_stackedbar(
data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SCrea4),
title = "I can change existing digital images, music, and video.",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0.5, 2.5, 3.5, 5.5),
stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "geslacht",
stack_var = "SCrea4"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 4
```{r dccs-wave2-gender-item4-2}
# I can make a photo or video more attractive (for example with a filter or Photoshop).
result <- create_stackedbar(
data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SCrea5),
title = "I can make a photo or video more attractive (for example with a filter or Photoshop).",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0.5, 2.5, 3.5, 5.5),
stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "geslacht",
stack_var = "SCrea5"
)
result
```
:::
##### {{< iconify ph graduation-cap-fill >}} Education
::: {.panel-tabset}
###### {{< iconify ph chat-circle-fill >}} Question 1
```{r dccs-wave2-edu-item1-2}
# I can make a presentation on the computer (for example in Powerpoint)
result <- create_stackedbar(
data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SCrea2),
title = "I can make a presentation on the computer (for example in Powerpoint)",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0.5, 2.5, 3.5, 5.5),
stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "Education",
stack_var = "SCrea2"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 2
```{r dccs-wave2-edu-item2-2}
# I can make something that combines different digital media (for example a movie with music).
result <- create_stackedbar(
data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SCrea3),
title = "I can make something that combines different digital media (for example a movie with music).",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0.5, 2.5, 3.5, 5.5),
stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "Education",
stack_var = "SCrea3"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 3
```{r dccs-wave2-edu-item3-2}
# I can change existing digital images, music, and video.
result <- create_stackedbar(
data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SCrea4),
title = "I can change existing digital images, music, and video.",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0.5, 2.5, 3.5, 5.5),
stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "Education",
stack_var = "SCrea4"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 4
```{r dccs-wave2-edu-item4-2}
# I can make a photo or video more attractive (for example with a filter or Photoshop).
result <- create_stackedbar(
data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SCrea5),
title = "I can make a photo or video more attractive (for example with a filter or Photoshop).",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0.5, 2.5, 3.5, 5.5),
stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "Education",
stack_var = "SCrea5"
)
result
```
:::
:::
### {{< iconify ph chart-line-fill >}} Over Time
::: {.panel-tabset}
##### {{< iconify ph users-fill >}} Overall
::: {.panel-tabset}
###### {{< iconify ph chat-circle-fill >}} Question 1
```{r dccs-overtime-overall-item1-2}
# I can make a presentation on the computer (for example in Powerpoint)
result <- create_timeline(
data = data,
title = "I can make a presentation on the computer (for example in Powerpoint)",
time_var = "wave_time_label",
chart_type = "line",
response_filter = c(4, 5),
response_filter_label = "Percentage who answered (Completely) True (4-5)",
response_filter_combine = TRUE,
x_label = "",
y_label = "Percentage who answered (Completely) True (4-5)",
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
y_min = 0,
y_max = 100,
response_var = "SCrea2"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 2
```{r dccs-overtime-overall-item2-2}
# I can make something that combines different digital media (for example a movie with music).
result <- create_timeline(
data = data,
title = "I can make something that combines different digital media (for example a movie with music).",
time_var = "wave_time_label",
chart_type = "line",
response_filter = c(4, 5),
response_filter_label = "Percentage who answered (Completely) True (4-5)",
response_filter_combine = TRUE,
x_label = "",
y_label = "Percentage who answered (Completely) True (4-5)",
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
y_min = 0,
y_max = 100,
response_var = "SCrea3"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 3
```{r dccs-overtime-overall-item3-2}
# I can change existing digital images, music, and video.
result <- create_timeline(
data = data,
title = "I can change existing digital images, music, and video.",
time_var = "wave_time_label",
chart_type = "line",
response_filter = c(4, 5),
response_filter_label = "Percentage who answered (Completely) True (4-5)",
response_filter_combine = TRUE,
x_label = "",
y_label = "Percentage who answered (Completely) True (4-5)",
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
y_min = 0,
y_max = 100,
response_var = "SCrea4"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 4
```{r dccs-overtime-overall-item4-2}
# I can make a photo or video more attractive (for example with a filter or Photoshop).
result <- create_timeline(
data = data,
title = "I can make a photo or video more attractive (for example with a filter or Photoshop).",
time_var = "wave_time_label",
chart_type = "line",
response_filter = c(4, 5),
response_filter_label = "Percentage who answered (Completely) True (4-5)",
response_filter_combine = TRUE,
x_label = "",
y_label = "Percentage who answered (Completely) True (4-5)",
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
y_min = 0,
y_max = 100,
response_var = "SCrea5"
)
result
```
:::
##### {{< iconify mdi:human-male-male-child >}} Age
::: {.panel-tabset}
###### {{< iconify ph chat-circle-fill >}} Question 1
```{r dccs-overtime-age-item1-2}
# I can make a presentation on the computer (for example in Powerpoint)
result <- create_timeline(
data = data,
title = "I can make a presentation on the computer (for example in Powerpoint)",
time_var = "wave_time_label",
chart_type = "line",
response_filter = c(4, 5),
x_label = "",
y_label = "Percentage who answered (Completely) True (4-5)",
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
y_min = 0,
y_max = 100,
weight_var = "weging_GAMO",
response_var = "SCrea2",
group_var = "AgeGroup"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 2
```{r dccs-overtime-age-item2-2}
# I can make something that combines different digital media (for example a movie with music).
result <- create_timeline(
data = data,
title = "I can make something that combines different digital media (for example a movie with music).",
time_var = "wave_time_label",
chart_type = "line",
response_filter = c(4, 5),
x_label = "",
y_label = "Percentage who answered (Completely) True (4-5)",
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
y_min = 0,
y_max = 100,
weight_var = "weging_GAMO",
response_var = "SCrea3",
group_var = "AgeGroup"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 3
```{r dccs-overtime-age-item3-2}
# I can change existing digital images, music, and video.
result <- create_timeline(
data = data,
title = "I can change existing digital images, music, and video.",
time_var = "wave_time_label",
chart_type = "line",
response_filter = c(4, 5),
x_label = "",
y_label = "Percentage who answered (Completely) True (4-5)",
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
y_min = 0,
y_max = 100,
weight_var = "weging_GAMO",
response_var = "SCrea4",
group_var = "AgeGroup"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 4
```{r dccs-overtime-age-item4-2}
# I can make a photo or video more attractive (for example with a filter or Photoshop).
result <- create_timeline(
data = data,
title = "I can make a photo or video more attractive (for example with a filter or Photoshop).",
time_var = "wave_time_label",
chart_type = "line",
response_filter = c(4, 5),
x_label = "",
y_label = "Percentage who answered (Completely) True (4-5)",
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
y_min = 0,
y_max = 100,
weight_var = "weging_GAMO",
response_var = "SCrea5",
group_var = "AgeGroup"
)
result
```
:::
##### {{< iconify mdi gender-transgender >}} Gender
::: {.panel-tabset}
###### {{< iconify ph chat-circle-fill >}} Question 1
```{r dccs-overtime-gender-item1-2}
# I can make a presentation on the computer (for example in Powerpoint)
result <- create_timeline(
data = data,
title = "I can make a presentation on the computer (for example in Powerpoint)",
time_var = "wave_time_label",
chart_type = "line",
response_filter = c(4, 5),
x_label = "",
y_label = "Percentage who answered (Completely) True (4-5)",
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
y_min = 0,
y_max = 100,
weight_var = "weging_GAMO",
response_var = "SCrea2",
group_var = "geslacht"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 2
```{r dccs-overtime-gender-item2-2}
# I can make something that combines different digital media (for example a movie with music).
result <- create_timeline(
data = data,
title = "I can make something that combines different digital media (for example a movie with music).",
time_var = "wave_time_label",
chart_type = "line",
response_filter = c(4, 5),
x_label = "",
y_label = "Percentage who answered (Completely) True (4-5)",
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
y_min = 0,
y_max = 100,
weight_var = "weging_GAMO",
response_var = "SCrea3",
group_var = "geslacht"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 3
```{r dccs-overtime-gender-item3-2}
# I can change existing digital images, music, and video.
result <- create_timeline(
data = data,
title = "I can change existing digital images, music, and video.",
time_var = "wave_time_label",
chart_type = "line",
response_filter = c(4, 5),
x_label = "",
y_label = "Percentage who answered (Completely) True (4-5)",
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
y_min = 0,
y_max = 100,
weight_var = "weging_GAMO",
response_var = "SCrea4",
group_var = "geslacht"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 4
```{r dccs-overtime-gender-item4-2}
# I can make a photo or video more attractive (for example with a filter or Photoshop).
result <- create_timeline(
data = data,
title = "I can make a photo or video more attractive (for example with a filter or Photoshop).",
time_var = "wave_time_label",
chart_type = "line",
response_filter = c(4, 5),
x_label = "",
y_label = "Percentage who answered (Completely) True (4-5)",
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
y_min = 0,
y_max = 100,
weight_var = "weging_GAMO",
response_var = "SCrea5",
group_var = "geslacht"
)
result
```
:::
##### {{< iconify ph graduation-cap-fill >}} Education
::: {.panel-tabset}
###### {{< iconify ph chat-circle-fill >}} Question 1
```{r dccs-overtime-edu-item1-2}
# I can make a presentation on the computer (for example in Powerpoint)
result <- create_timeline(
data = data,
title = "I can make a presentation on the computer (for example in Powerpoint)",
time_var = "wave_time_label",
chart_type = "line",
response_filter = c(4, 5),
x_label = "",
y_label = "Percentage who answered (Completely) True (4-5)",
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
y_min = 0,
y_max = 100,
weight_var = "weging_GAMO",
response_var = "SCrea2",
group_var = "Education"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 2
```{r dccs-overtime-edu-item2-2}
# I can make something that combines different digital media (for example a movie with music).
result <- create_timeline(
data = data,
title = "I can make something that combines different digital media (for example a movie with music).",
time_var = "wave_time_label",
chart_type = "line",
response_filter = c(4, 5),
x_label = "",
y_label = "Percentage who answered (Completely) True (4-5)",
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
y_min = 0,
y_max = 100,
weight_var = "weging_GAMO",
response_var = "SCrea3",
group_var = "Education"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 3
```{r dccs-overtime-edu-item3-2}
# I can change existing digital images, music, and video.
result <- create_timeline(
data = data,
title = "I can change existing digital images, music, and video.",
time_var = "wave_time_label",
chart_type = "line",
response_filter = c(4, 5),
x_label = "",
y_label = "Percentage who answered (Completely) True (4-5)",
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
y_min = 0,
y_max = 100,
weight_var = "weging_GAMO",
response_var = "SCrea4",
group_var = "Education"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 4
```{r dccs-overtime-edu-item4-2}
# I can make a photo or video more attractive (for example with a filter or Photoshop).
result <- create_timeline(
data = data,
title = "I can make a photo or video more attractive (for example with a filter or Photoshop).",
time_var = "wave_time_label",
chart_type = "line",
response_filter = c(4, 5),
x_label = "",
y_label = "Percentage who answered (Completely) True (4-5)",
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
y_min = 0,
y_max = 100,
weight_var = "weging_GAMO",
response_var = "SCrea5",
group_var = "Education"
)
result
```
:::
:::
:::
## {{< iconify ph book-open-fill >}} Creative Knowledge
**Digital Content Creation** skills cover the ability to create and modify digital content: making presentations, combining different media, editing images/music/video, and understanding copyright rules around digital content.
```{r, echo=FALSE, message=FALSE, warning=FALSE}
create_blockquote("The following statements are about the internet. Please indicate if the sentence is true or untrue, according to you. If you don't know, please choose 'I don't know'. You don't have to guess. If you don't understand the question, please choose 'I don't understand the question.' Nearly everyone will not know or understand questions. This is normal and something that we want to know.", preset = "question")
```
::: {.panel-tabset}
### {{< iconify ph number-circle-one-fill >}} Wave 1
::: {.panel-tabset}
##### {{< iconify ph users-fill >}} Overall
```{r kcrea-wave1-overall-2}
#
result <- create_stackedbars(
data = data_filtered_984a0efe %>% tidyr::drop_na(KCrea2RC, KCrea3RC),
title = "",
questions = c("KCrea2RC", "KCrea3RC"),
question_labels = c("Some people are paid to use products in the videos they make.", "You can change and share existing videos, as long as you do not make money by doing it."),
stacked_type = "percent",
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
horizontal = TRUE,
x_label = "",
stack_breaks = c(0, 10, 20, 30),
stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
stack_label = NULL,
weight_var = "weging_GAMO"
)
result
```
##### {{< iconify mdi:human-male-male-child >}} Age
::: {.panel-tabset}
###### {{< iconify ph chat-circle-fill >}} Question 1
```{r kcrea-wave1-age-item1-2}
# Some people are paid to use products in the videos they make.
result <- create_stackedbar(
data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, KCrea2RC),
title = "Some people are paid to use products in the videos they make.",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0, 10, 20, 30),
stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "AgeGroup",
stack_var = "KCrea2RC"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 2
```{r kcrea-wave1-age-item2-2}
# You can change and share existing videos, as long as you do not make money by doing it.
result <- create_stackedbar(
data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, KCrea3RC),
title = "You can change and share existing videos, as long as you do not make money by doing it.",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0, 10, 20, 30),
stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "AgeGroup",
stack_var = "KCrea3RC"
)
result
```
:::
##### {{< iconify mdi gender-transgender >}} Gender
::: {.panel-tabset}
###### {{< iconify ph chat-circle-fill >}} Question 1
```{r kcrea-wave1-gender-item1-2}
# Some people are paid to use products in the videos they make.
result <- create_stackedbar(
data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, KCrea2RC),
title = "Some people are paid to use products in the videos they make.",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0, 10, 20, 30),
stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "geslacht",
stack_var = "KCrea2RC"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 2
```{r kcrea-wave1-gender-item2-2}
# You can change and share existing videos, as long as you do not make money by doing it.
result <- create_stackedbar(
data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, KCrea3RC),
title = "You can change and share existing videos, as long as you do not make money by doing it.",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0, 10, 20, 30),
stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "geslacht",
stack_var = "KCrea3RC"
)
result
```
:::
##### {{< iconify ph graduation-cap-fill >}} Education
::: {.panel-tabset}
###### {{< iconify ph chat-circle-fill >}} Question 1
```{r kcrea-wave1-edu-item1-2}
# Some people are paid to use products in the videos they make.
result <- create_stackedbar(
data = data_filtered_984a0efe %>% tidyr::drop_na(Education, KCrea2RC),
title = "Some people are paid to use products in the videos they make.",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0, 10, 20, 30),
stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "Education",
stack_var = "KCrea2RC"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 2
```{r kcrea-wave1-edu-item2-2}
# You can change and share existing videos, as long as you do not make money by doing it.
result <- create_stackedbar(
data = data_filtered_984a0efe %>% tidyr::drop_na(Education, KCrea3RC),
title = "You can change and share existing videos, as long as you do not make money by doing it.",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0, 10, 20, 30),
stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "Education",
stack_var = "KCrea3RC"
)
result
```
:::
:::
### {{< iconify ph number-circle-two-fill >}} Wave 2
::: {.panel-tabset}
##### {{< iconify ph users-fill >}} Overall
```{r kcrea-wave2-overall-2}
#
result <- create_stackedbars(
data = data_filtered_4af682fd %>% tidyr::drop_na(KCrea2RC, KCrea3RC),
title = "",
questions = c("KCrea2RC", "KCrea3RC"),
question_labels = c("Some people are paid to use products in the videos they make.", "You can change and share existing videos, as long as you do not make money by doing it."),
stacked_type = "percent",
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
horizontal = TRUE,
x_label = "",
stack_breaks = c(0, 10, 20, 30),
stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
stack_label = NULL,
weight_var = "weging_GAMO"
)
result
```
##### {{< iconify mdi:human-male-male-child >}} Age
::: {.panel-tabset}
###### {{< iconify ph chat-circle-fill >}} Question 1
```{r kcrea-wave2-age-item1-2}
# Some people are paid to use products in the videos they make.
result <- create_stackedbar(
data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, KCrea2RC),
title = "Some people are paid to use products in the videos they make.",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0, 10, 20, 30),
stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "AgeGroup",
stack_var = "KCrea2RC"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 2
```{r kcrea-wave2-age-item2-2}
# You can change and share existing videos, as long as you do not make money by doing it.
result <- create_stackedbar(
data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, KCrea3RC),
title = "You can change and share existing videos, as long as you do not make money by doing it.",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0, 10, 20, 30),
stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "AgeGroup",
stack_var = "KCrea3RC"
)
result
```
:::
##### {{< iconify mdi gender-transgender >}} Gender
::: {.panel-tabset}
###### {{< iconify ph chat-circle-fill >}} Question 1
```{r kcrea-wave2-gender-item1-2}
# Some people are paid to use products in the videos they make.
result <- create_stackedbar(
data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, KCrea2RC),
title = "Some people are paid to use products in the videos they make.",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0, 10, 20, 30),
stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "geslacht",
stack_var = "KCrea2RC"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 2
```{r kcrea-wave2-gender-item2-2}
# You can change and share existing videos, as long as you do not make money by doing it.
result <- create_stackedbar(
data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, KCrea3RC),
title = "You can change and share existing videos, as long as you do not make money by doing it.",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0, 10, 20, 30),
stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "geslacht",
stack_var = "KCrea3RC"
)
result
```
:::
##### {{< iconify ph graduation-cap-fill >}} Education
::: {.panel-tabset}
###### {{< iconify ph chat-circle-fill >}} Question 1
```{r kcrea-wave2-edu-item1-2}
# Some people are paid to use products in the videos they make.
result <- create_stackedbar(
data = data_filtered_4af682fd %>% tidyr::drop_na(Education, KCrea2RC),
title = "Some people are paid to use products in the videos they make.",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0, 10, 20, 30),
stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "Education",
stack_var = "KCrea2RC"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 2
```{r kcrea-wave2-edu-item2-2}
# You can change and share existing videos, as long as you do not make money by doing it.
result <- create_stackedbar(
data = data_filtered_4af682fd %>% tidyr::drop_na(Education, KCrea3RC),
title = "You can change and share existing videos, as long as you do not make money by doing it.",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0, 10, 20, 30),
stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "Education",
stack_var = "KCrea3RC"
)
result
```
:::
:::
### {{< iconify ph chart-line-fill >}} Over Time
::: {.panel-tabset}
##### {{< iconify ph users-fill >}} Overall
::: {.panel-tabset}
###### {{< iconify ph chat-circle-fill >}} Question 1
```{r kcrea-overtime-overall-item1-2}
# Some people are paid to use products in the videos they make.
result <- create_timeline(
data = data,
title = "Some people are paid to use products in the videos they make.",
time_var = "wave_time_label",
chart_type = "line",
response_filter = 1,
y_min = 0,
y_max = 100,
response_filter_label = "Percentage who selected/answered correctly",
response_filter_combine = TRUE,
x_label = "",
y_label = "Percentage who selected/answered correctly",
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
response_var = "KCrea2RC"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 2
```{r kcrea-overtime-overall-item2-2}
# You can change and share existing videos, as long as you do not make money by doing it.
result <- create_timeline(
data = data,
title = "You can change and share existing videos, as long as you do not make money by doing it.",
time_var = "wave_time_label",
chart_type = "line",
response_filter = 1,
y_min = 0,
y_max = 100,
response_filter_label = "Percentage who selected/answered correctly",
response_filter_combine = TRUE,
x_label = "",
y_label = "Percentage who selected/answered correctly",
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
response_var = "KCrea3RC"
)
result
```
:::
##### {{< iconify mdi:human-male-male-child >}} Age
::: {.panel-tabset}
###### {{< iconify ph chat-circle-fill >}} Question 1
```{r kcrea-overtime-age-item1-2}
# Some people are paid to use products in the videos they make.
result <- create_timeline(
data = data,
title = "Some people are paid to use products in the videos they make.",
time_var = "wave_time_label",
chart_type = "line",
response_filter = 1,
y_min = 0,
y_max = 100,
x_label = "",
y_label = "Percentage who selected/answered correctly",
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
response_filter_label = NULL,
weight_var = "weging_GAMO",
response_var = "KCrea2RC",
group_var = "AgeGroup"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 2
```{r kcrea-overtime-age-item2-2}
# You can change and share existing videos, as long as you do not make money by doing it.
result <- create_timeline(
data = data,
title = "You can change and share existing videos, as long as you do not make money by doing it.",
time_var = "wave_time_label",
chart_type = "line",
response_filter = 1,
y_min = 0,
y_max = 100,
x_label = "",
y_label = "Percentage who selected/answered correctly",
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
response_filter_label = NULL,
weight_var = "weging_GAMO",
response_var = "KCrea3RC",
group_var = "AgeGroup"
)
result
```
:::
##### {{< iconify mdi gender-transgender >}} Gender
::: {.panel-tabset}
###### {{< iconify ph chat-circle-fill >}} Question 1
```{r kcrea-overtime-gender-item1-2}
# Some people are paid to use products in the videos they make.
result <- create_timeline(
data = data,
title = "Some people are paid to use products in the videos they make.",
time_var = "wave_time_label",
chart_type = "line",
response_filter = 1,
y_min = 0,
y_max = 100,
x_label = "",
y_label = "Percentage who selected/answered correctly",
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
response_filter_label = NULL,
weight_var = "weging_GAMO",
response_var = "KCrea2RC",
group_var = "geslacht"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 2
```{r kcrea-overtime-gender-item2-2}
# You can change and share existing videos, as long as you do not make money by doing it.
result <- create_timeline(
data = data,
title = "You can change and share existing videos, as long as you do not make money by doing it.",
time_var = "wave_time_label",
chart_type = "line",
response_filter = 1,
y_min = 0,
y_max = 100,
x_label = "",
y_label = "Percentage who selected/answered correctly",
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
response_filter_label = NULL,
weight_var = "weging_GAMO",
response_var = "KCrea3RC",
group_var = "geslacht"
)
result
```
:::
##### {{< iconify ph graduation-cap-fill >}} Education
::: {.panel-tabset}
###### {{< iconify ph chat-circle-fill >}} Question 1
```{r kcrea-overtime-edu-item1-2}
# Some people are paid to use products in the videos they make.
result <- create_timeline(
data = data,
title = "Some people are paid to use products in the videos they make.",
time_var = "wave_time_label",
chart_type = "line",
response_filter = 1,
y_min = 0,
y_max = 100,
x_label = "",
y_label = "Percentage who selected/answered correctly",
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
response_filter_label = NULL,
weight_var = "weging_GAMO",
response_var = "KCrea2RC",
group_var = "Education"
)
result
```
###### {{< iconify ph chat-circle-fill >}} Question 2
```{r kcrea-overtime-edu-item2-2}
# You can change and share existing videos, as long as you do not make money by doing it.
result <- create_timeline(
data = data,
title = "You can change and share existing videos, as long as you do not make money by doing it.",
time_var = "wave_time_label",
chart_type = "line",
response_filter = 1,
y_min = 0,
y_max = 100,
x_label = "",
y_label = "Percentage who selected/answered correctly",
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
response_filter_label = NULL,
weight_var = "weging_GAMO",
response_var = "KCrea3RC",
group_var = "Education"
)
result
```
:::
:::
:::
## {{< iconify ph clipboard-text >}} Content Creation Performance
ADD TEXT BEFORE TABSET
::: {.panel-tabset}
### {{< iconify ph number-circle-one-fill >}} Wave 1
::: {.panel-tabset}
##### {{< iconify ph users-fill >}} Overall
```{r perf-dccs-wave1-overall-2}
# Identify crop icon
result <- create_stackedbars(
data = data_filtered_984a0efe %>% tidyr::drop_na(PDCCS1R),
title = "Identify crop icon",
questions = "PDCCS1R",
question_labels = "Identify crop icon",
stacked_type = "percent",
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
horizontal = TRUE,
x_label = "",
stack_breaks = c(0, 10, 20, 30),
stack_bin_labels = c("Incorrect", "Correct"),
stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
stack_order = c("Incorrect", "Correct"),
stack_label = NULL,
weight_var = "weging_GAMO"
)
result
```
##### {{< iconify mdi:human-male-male-child >}} Age
::: {.panel-tabset}
###### {{< iconify ph chat-circle-fill >}} Question 1
```{r perf-dccs-wave1-age-item1-2}
# Identify crop icon
result <- create_stackedbar(
data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PDCCS1R),
title = "Identify crop icon",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0, 10, 20, 30),
stack_bin_labels = c("Incorrect", "Correct"),
stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
stack_order = c("Incorrect", "Correct"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "AgeGroup",
stack_var = "PDCCS1R"
)
result
```
:::
##### {{< iconify mdi gender-transgender >}} Gender
::: {.panel-tabset}
###### {{< iconify ph chat-circle-fill >}} Question 1
```{r perf-dccs-wave1-gender-item1-2}
# Identify crop icon
result <- create_stackedbar(
data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PDCCS1R),
title = "Identify crop icon",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0, 10, 20, 30),
stack_bin_labels = c("Incorrect", "Correct"),
stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
stack_order = c("Incorrect", "Correct"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "geslacht",
stack_var = "PDCCS1R"
)
result
```
:::
##### {{< iconify ph graduation-cap-fill >}} Education
::: {.panel-tabset}
###### {{< iconify ph chat-circle-fill >}} Question 1
```{r perf-dccs-wave1-edu-item1-2}
# Identify crop icon
result <- create_stackedbar(
data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PDCCS1R),
title = "Identify crop icon",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0, 10, 20, 30),
stack_bin_labels = c("Incorrect", "Correct"),
stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
stack_order = c("Incorrect", "Correct"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "Education",
stack_var = "PDCCS1R"
)
result
```
:::
:::
### {{< iconify ph number-circle-two-fill >}} Wave 2
::: {.panel-tabset}
##### {{< iconify ph users-fill >}} Overall
```{r perf-dccs-wave2-overall-2}
# Identify crop icon
result <- create_stackedbars(
data = data_filtered_4af682fd %>% tidyr::drop_na(PDCCS1R),
title = "Identify crop icon",
questions = "PDCCS1R",
question_labels = "Identify crop icon",
stacked_type = "percent",
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
horizontal = TRUE,
x_label = "",
stack_breaks = c(0, 10, 20, 30),
stack_bin_labels = c("Incorrect", "Correct"),
stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
stack_order = c("Incorrect", "Correct"),
stack_label = NULL,
weight_var = "weging_GAMO"
)
result
```
##### {{< iconify mdi:human-male-male-child >}} Age
::: {.panel-tabset}
###### {{< iconify ph chat-circle-fill >}} Question 1
```{r perf-dccs-wave2-age-item1-2}
# Identify crop icon
result <- create_stackedbar(
data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PDCCS1R),
title = "Identify crop icon",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0, 10, 20, 30),
stack_bin_labels = c("Incorrect", "Correct"),
stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
stack_order = c("Incorrect", "Correct"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "AgeGroup",
stack_var = "PDCCS1R"
)
result
```
:::
##### {{< iconify mdi gender-transgender >}} Gender
::: {.panel-tabset}
###### {{< iconify ph chat-circle-fill >}} Question 1
```{r perf-dccs-wave2-gender-item1-2}
# Identify crop icon
result <- create_stackedbar(
data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PDCCS1R),
title = "Identify crop icon",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0, 10, 20, 30),
stack_bin_labels = c("Incorrect", "Correct"),
stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
stack_order = c("Incorrect", "Correct"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "geslacht",
stack_var = "PDCCS1R"
)
result
```
:::
##### {{< iconify ph graduation-cap-fill >}} Education
::: {.panel-tabset}
###### {{< iconify ph chat-circle-fill >}} Question 1
```{r perf-dccs-wave2-edu-item1-2}
# Identify crop icon
result <- create_stackedbar(
data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PDCCS1R),
title = "Identify crop icon",
stacked_type = "percent",
horizontal = TRUE,
stack_breaks = c(0, 10, 20, 30),
stack_bin_labels = c("Incorrect", "Correct"),
stack_map_values = list("1" = "Correct", "0" = "Incorrect"),
stack_order = c("Incorrect", "Correct"),
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
x_var = "Education",
stack_var = "PDCCS1R"
)
result
```
:::
:::
### {{< iconify ph chart-line-fill >}} Over Time
::: {.panel-tabset}
##### {{< iconify ph users-fill >}} Overall
::: {.panel-tabset}
###### {{< iconify ph chat-circle-fill >}} Question 1
```{r perf-dccs-overtime-overall-item1-2}
# Identify crop icon
result <- create_timeline(
data = data,
title = "Identify crop icon",
time_var = "wave_time_label",
chart_type = "line",
response_filter = 1,
y_min = 0,
y_max = 100,
response_filter_label = "Percentage who selected/answered correctly",
response_filter_combine = TRUE,
x_label = "",
y_label = "Percentage who selected/answered correctly",
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
weight_var = "weging_GAMO",
response_var = "PDCCS1R"
)
result
```
:::
##### {{< iconify mdi:human-male-male-child >}} Age
::: {.panel-tabset}
###### {{< iconify ph chat-circle-fill >}} Question 1
```{r perf-dccs-overtime-age-item1-2}
# Identify crop icon
result <- create_timeline(
data = data,
title = "Identify crop icon",
time_var = "wave_time_label",
chart_type = "line",
response_filter = 1,
y_min = 0,
y_max = 100,
x_label = "",
y_label = "Percentage who selected/answered correctly",
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
response_filter_label = NULL,
weight_var = "weging_GAMO",
response_var = "PDCCS1R",
group_var = "AgeGroup"
)
result
```
:::
##### {{< iconify mdi gender-transgender >}} Gender
::: {.panel-tabset}
###### {{< iconify ph chat-circle-fill >}} Question 1
```{r perf-dccs-overtime-gender-item1-2}
# Identify crop icon
result <- create_timeline(
data = data,
title = "Identify crop icon",
time_var = "wave_time_label",
chart_type = "line",
response_filter = 1,
y_min = 0,
y_max = 100,
x_label = "",
y_label = "Percentage who selected/answered correctly",
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
response_filter_label = NULL,
weight_var = "weging_GAMO",
response_var = "PDCCS1R",
group_var = "geslacht"
)
result
```
:::
##### {{< iconify ph graduation-cap-fill >}} Education
::: {.panel-tabset}
###### {{< iconify ph chat-circle-fill >}} Question 1
```{r perf-dccs-overtime-edu-item1-2}
# Identify crop icon
result <- create_timeline(
data = data,
title = "Identify crop icon",
time_var = "wave_time_label",
chart_type = "line",
response_filter = 1,
y_min = 0,
y_max = 100,
x_label = "",
y_label = "Percentage who selected/answered correctly",
color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
response_filter_label = NULL,
weight_var = "weging_GAMO",
response_var = "PDCCS1R",
group_var = "Education"
)
result
```
:::
:::
:::